home *** CD-ROM | disk | FTP | other *** search
/ Hardcore Visual Basic 5.0 (2nd Edition) / Hardcore Visual Basic 5.0 - Second Edition (1997)(Microsoft Press).iso / Code / null.cls < prev    next >
Text File  |  1997-06-14  |  687b  |  36 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "CNull"
  6. Attribute VB_GlobalNameSpace = False
  7. Attribute VB_Creatable = True
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = False
  10. Option Explicit
  11.  
  12. Private iProp As Integer
  13. Public PubProp As Integer
  14. Public StrProp As String
  15.  
  16. Public Property Let ProcProp(iPropA As Integer)
  17.     iProp = iPropA
  18. End Property
  19.  
  20. Public Property Get ProcProp() As Integer
  21.     ProcProp = iProp
  22. End Property
  23.  
  24. Public Sub SubMethod(i As Integer)
  25.     i = 1
  26. End Sub
  27.  
  28. Public Function FuncMethod()
  29.     FuncMethod = 2
  30. End Function
  31.  
  32. Friend Property Get FriendProp() As Long
  33.     FriendProp = 1
  34. End Property
  35.  
  36.